BOOT1.PAL[11,HE] - www.SailDart.org

perm filename BOOT1.PAL[11,HE] blob sn#646118 filedate 1982-03-10 generic text, type T, neo UTF8

;						BOOT2.PAL
.=1000

START:	MOV #177406,%0		;ADDR WORD COUNT REG
	MOV #177400,(%0)	;READ 400 WDS
	MOV #20000,4(%0)	;USE DRIVE 2 (60000 FOR 3, 20000 FOR 1)
	MOV #5,-(%0)		;GO READ
1$:	TSTB (%0)		;WAIT TIL DONE
	BPL 1$
	CLR %7			;JUMP TO BOOTSTRAP AT LOC 0

.END START